home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / moving sign.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  96 lines
  1. 5 POKE53280,0:POKE53281,0:PRINT""
  2. 10 POKE56,128:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164:CLR
  3. 15 PRINT"[142][147]          M O V I N G    S I G N"
  4. 17 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  5. 21 [153],"STEVEN DARNOLD
  6. 22 PRINT,"P.O. BOX 201
  7. 23 [153],"ALEXANDRA, NEW ZEALAND
  8. 25 DIMA%(58,4):FORI=826TO1010:POKEI,PEEK(I+3151):NEXT
  9. 27 FORX=0TO58:IFX/2=INT(X/2)THENSYS826
  10. 28 FORY=0TO4
  11. 29 READA%(X,Y)
  12. 30 NEXTY,X
  13. 32 DATA0,0,0,0,0
  14. 33 DATA0,0,122,0,0
  15. 34 DATA0,112,0,112,0
  16. 35 DATA20,127,20,127,20
  17. 36 DATA18,42,127,42,36
  18. 37 DATA98,100,8,19,35
  19. 38 DATA54,73,53,2,5
  20. 39 DATA0,0,16,32,64
  21. 40 DATA0,0,28,34,65
  22. 41 DATA65,34,28,0,0
  23. 42 DATA34,20,127,20,34
  24. 43 DATA8,8,127,8,8
  25. 44 DATA0,1,6,0,0
  26. 45 DATA8,8,8,8,8
  27. 46 DATA0,0,1,0,0
  28. 47 DATA2,4,8,16,32
  29. 48 DATA62,65,65,65,62
  30. 49 DATA0,33,127,1,0
  31. 50 DATA39,73,73,73,49
  32. 51 DATA66,65,73,89,102
  33. 52 DATA12,20,36,127,4
  34. 53 DATA114,81,81,81,78
  35. 54 DATA30,41,73,73,70
  36. 55 DATA65,66,68,72,112
  37. 56 DATA54,73,73,73,54
  38. 57 DATA49,73,73,74,60
  39. 58 DATA0,0,20,0,0
  40. 59 DATA0,1,22,0,0
  41. 60 DATA0,8,20,34,65
  42. 61 DATA20,20,20,20,20
  43. 62 DATA0,65,34,20,8
  44. 63 DATA32,64,133,72,48
  45. 64 DATA28,34,93,85,61
  46. 65 DATA63,68,68,68,63
  47. 66 DATA127,73,73,73,54
  48. 67 DATA62,65,65,65,34
  49. 68 DATA127,65,65,65,62
  50. 69 DATA127,73,73,65,65
  51. 70 DATA127,72,72,72,64
  52. 71 DATA62,65,65,69,70
  53. 72 DATA127,8,8,8,127
  54. 73 DATA0,65,127,65,0
  55. 74 DATA2,1,1,1,126
  56. 75 DATA127,8,20,34,65
  57. 76 DATA127,1,1,1,1
  58. 77 DATA127,32,24,32,127
  59. 78 DATA127,16,8,4,127
  60. 79 DATA62,65,65,65,62
  61. 80 DATA127,72,72,72,48
  62. 81 DATA62,65,69,66,61
  63. 82 DATA127,72,76,74,49
  64. 83 DATA50,73,73,73,38
  65. 84 DATA64,64,127,64,64
  66. 85 DATA126,1,1,1,126
  67. 86 DATA120,6,1,6,120
  68. 87 DATA127,2,12,2,127
  69. 88 DATA99,20,8,20,99
  70. 89 DATA96,16,15,16,96
  71. 90 DATA67,69,73,81,97
  72. 100 GOSUB500:PRINT"TYPE IN THE MESSAGE YOU WANT TO DISPLAY"
  73. 200 POKE198,0:POKE204,0
  74. 205 WAIT198,7:GETB$:B=ASC(B$):IFB>90THEN205
  75. 210 ZL=LEN(A$):IFZL=255ANDB>20THEN205
  76. 220 IFB=13ANDZLTHEN300
  77. 230 IFB=20ANDZLTHENPRINTB$;:A$=LEFT$(A$,LEN(A$)-1):GOTO205
  78. 235 IFB<32THEN205
  79. 240 PRINTB$;:A$=A$+B$:GOTO205
  80. 300 POKE204,1:GOSUB500
  81. 305 FORK=1TOLEN(A$)
  82. 310 Y=ASC(MID$(A$,K,1))-32
  83. 315 FORJ=0TO4
  84. 316 POKE1010,A%(Y,J)
  85. 320 SYS904
  86. 322 SYS826
  87. 325 NEXT
  88. 330 SYS826:SYS826
  89. 340 NEXT
  90. 400 FORK=1TO80
  91. 410 SYS826
  92. 415 FORI=1TO10:NEXT
  93. 420 NEXT
  94. 430 GOTO305
  95. 500 PRINT"[147]":FORI=1TO99:PRINT"         ";:NEXT:RETURN
  96.